Шаг 77 - Метод Skip.

Пропускает следующую строку при чтении из файла TextStream.

object.SkipLine

Параметры
object объект типа TextStream

Пример
Следующий код иллюстрирует использование SkipLine метода:

Function SkipLineInFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "Hello world!" & vbCrLf & "VB Script is fun!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  f.SkipLine
  SkipLineInFile = f.ReadLine
End Function
Hosted by uCoz